home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Sound / MidiTracker / Install / Installerscript < prev   
Encoding:
Text File  |  1997-11-04  |  15.4 KB  |  792 lines
  1. ;
  2. ; Script to install MidiTracker
  3. ;
  4. ; (VERY important: tooltype-values of LANGUAGE must be lower-case !!!
  5. ;  e.g. use LANGUAGE=deutsch instead of LANGUAGE=Deutsch !!!)
  6. ;
  7.  
  8.  
  9. (set @default-dest "RAM:")
  10.  
  11.  
  12. ; Language codes:
  13. ;
  14. ;   1  English
  15. ;   2  Deutsch
  16. ;   4  Dansk
  17. ;   8  Español
  18. ;  16  Français
  19. ;  32  Italiano
  20. ;  64  Nederlands
  21. ; 128  Norsk
  22. ; 256  Português
  23. ; 512  Svenska
  24.  
  25.  
  26. (set default_lang 0) ; misuse variable as a flag, for later to check
  27.  
  28.  
  29.  
  30. ; == German strings =====================================================
  31.  
  32. (if (= @language "deutsch")
  33. (
  34. (set default_lang 2)
  35.  
  36. (set #bad-kick "Sie benötigen mindestens Kickstart 2.04 für ReqChange")
  37. (set #which-language "Welche Sprachen sollen installiert werden?")
  38.  
  39. (set #intro (cat
  40. "MidiTracker Installation\n"
  41. "~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  42. "Dieser Vorgang wird das MidiTracker Softwarepaket "
  43. "auf Ihrer Festplatte installieren.\n\n"
  44. "Um das Programm nur kurz auszuprobieren, müssen Sie es "
  45. "nicht unbedingt installieren - starten Sie es einfach!\n\n"
  46. "MidiTracker ist (c) 1996-1997 Sven Thoennissen"
  47. ))
  48.  
  49. (set #copy-mt-library "Kopiere miditracker.library")
  50. (set #copy-rt-library "Kopiere reqtools.library")
  51. (set #copy-mt-guide   "Kopiere MidiTracker.guide")
  52. (set #install-docu    "Soll die MidiTracker Dokumentation installiert werden?")
  53. (set #copy-synths     "Kopiere Dialog-Textdateien...")
  54.  
  55. (set #where-mt (cat
  56. "Bitte einen Pfad für MidiTracker aussuchen. Dort wird das MidiTracker-Verzeichnis "
  57. "erstellt."
  58. ))
  59.  
  60. (set #mt-exists (cat
  61. "Die Datei (bzw. das Verzeichnis) \"MidiTracker\" existiert bereits.\n"
  62. "Bitte reagieren:\n"
  63. ))
  64.  
  65. (set #rename-old-file   "Alte Datei umbenennen")
  66. (set #delete-old-file   "Alte Datei löschen")
  67. (set #select-new-path   "Neuen Pfad auswählen")
  68. (set #rename-old-drawer "Altes Verzeichnis umbenennen")
  69. (set #update-old-drawer "Ins alte Verzeichnis aktualisieren")
  70.  
  71. (set #mt-exists-help (cat
  72. "\"Umbennen\" benennt das alte Verzeichnis um. "
  73. "Es kann ja später immer noch gelöscht werden.\n\n"
  74. "\"Löschen\" wird die alte Datei löschen.\n\n"
  75. "\"Aktualisieren\" wird die Dateien im alten Verzeichnis "
  76. "einfach überschreiben.\n\n"
  77. "Mit \"Neuer Pfad\" können Sie ein anderes Verzeichnis für MidiTracker "
  78. "aussuchen.\n\n"
  79. @askchoice-help
  80. ))
  81.  
  82. (set #mt-rename "Alte Datei/Verzeichnis nach \"%s\" umbenennen")
  83. (set #makedir "Ein Verzeichnis namens \"%s\" wird erstellt.")
  84. (set #mt-delete "Lösche alten MidiTracker")
  85.  
  86. (set #mt-rename-help
  87. "Wählen Sie einen neuen namen für die alte MidiTracker-Datei aus.")
  88.  
  89. (set #mt-delete-help
  90. "Die Datei wird unwiederbringlich gelöscht. Seien Sie ganz sicher!")
  91.  
  92. (set #mt-version-help (cat
  93. "Sie können nun diejenige Version von MidiTracker installieren, "
  94. "die dem Prozessor in Ihrem Amiga am nächsten kommt."
  95. ))
  96.  
  97. (set #newname (cat
  98. "Das alte MidiTracker-Verzeichnis/Datei\n\n"
  99. "\"%s\"\n\n"
  100. " ist in\n\n"
  101. "\"%s\"\n\n"
  102. "umbenannt worden."
  103. ))
  104.  
  105.  
  106. (set #mainprog (cat
  107. "Das Hauptprogramm wird nun kopiert.\n\n"
  108. "Dieser Amiga hat einen %s Prozessor.\n\n"
  109. "Welche Version möchten Sie installieren:\n"
  110. ))
  111.  
  112. (set #ver-68000 "68000 Version (läuft auf allen Amigas)")
  113. (set #ver-68020 "68020 Version (benötigt mindestens 68020)")
  114.  
  115. (set #yes "Ja")
  116. (set #no  "Nein")
  117.  
  118. (set #install-docu "Soll die Dokumentation installiert werden?")
  119.  
  120. (set #install-mtplay (cat
  121. "Soll das Programm \"mtplay\" installiert werden?\n\n"
  122. "(dies ist ein externes Abspielprogramm für MidiTracker-Songs)"
  123. ))
  124.  
  125. (set #where-mtplay "Wohin soll mtplay kopiert werden?")
  126. (set #copy-mtplay "Kopiere mtplay nach %s")
  127. (set #copy-registerform "Kopiere das Registrierungs-Formular")
  128. (set #copy-controlsources "Kopiere MIDI-Parameter Datei")
  129. (set #regform "Registrierung")
  130. (set #which-iconset "Welches Piktogramm-System bevorzugen Sie?\n")
  131. (set #copy-catalog "Kopiere Kataloge")
  132.  
  133. (set #standard-icons "Standard (4 Farben)")
  134. (set #magicwb-icons  "MagicWB (8 Farben)")
  135. (set #newicos-icons  "NewIcons (bis zu 256 Farben)")
  136.  
  137. (set #editor "Bitte den bevorzugten Texteditor eingeben:")
  138.  
  139. (set @askbool-help (cat
  140. "Clicken Sie auf \"" #yes "\" oder \"" #no "\","
  141. "um diese Frage zu beantworten."
  142. ))
  143.  
  144. (set @defaulttool-help (cat
  145. "Alle Dialog-Textdateien werden nun \"%s\"\n"
  146. "als voreingestellten Editor bekommen."
  147. ))
  148.  
  149. )) ; if
  150.  
  151.  
  152.  
  153. ; == English strings ====================================================
  154.  
  155. ; Imagine the case, a language has been specified in @language for which
  156. ; this script is not localized yet. English strings are set in this case.
  157.  
  158. (if (= default_lang 0)
  159. (
  160. (set default_lang 1)
  161.  
  162. (set #bad-kick "You must be using Kickstart 2.04+ to install MidiTracker")
  163. (set #which-language "Which languages should be installed?")
  164.  
  165. (set #intro (cat
  166. "MidiTracker installation\n"
  167. "~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  168. "This script will install the MidiTracker package "
  169. "to your hard drive.\n\n"
  170. "For a quick start, you don't have to install. "
  171. "Just click the program's icon.\n\n"
  172. "MidiTracker is (c) 1996-1997 Sven Thoennissen"
  173. ))
  174.  
  175. (set #copy-mt-library "Copying miditracker.library...")
  176. (set #copy-rt-library "Copying reqtools.library...")
  177. (set #copy-mt-guide   "Copying MidiTracker.guide...")
  178. (set #copy-synths     "Copying dialog textfiles...")
  179.  
  180. (set #where-mt
  181. "Please select the path where the MidiTracker-drawer will be created.")
  182.  
  183. (set #install-docu
  184. "Would you like to install the MidiTracker documentation?")
  185.  
  186. (set #mt-exists (cat
  187. "A file or drawer \"MidiTracker\" already exists.\n"
  188. "Choose action:\n"
  189. ))
  190.  
  191. (set #rename-old-file   "Rename old file")
  192. (set #delete-old-file   "Delete old file")
  193. (set #select-new-path   "Select new path")
  194. (set #rename-old-drawer "Rename old drawer")
  195. (set #update-old-drawer "Update into old drawer")
  196.  
  197. (set #mt-exists-help (cat
  198. "Choose \"Rename\" if you want to be safe. Old file/drawer is"
  199. "renamed, you may delete it later.\n\n"
  200. "\"Delete\" will kill the file immediately.\n\n"
  201. "\"Update\" will copy the new files into the old drawer.\n\n"
  202. "\"New path\" brings you back to path-selection menu.\n\n"
  203. @askchoice-help
  204. ))
  205.  
  206. (set #mt-rename "Rename old file/drawer to \"%s\"")
  207. (set #makedir "A drawer named \"%s\" is created.")
  208. (set #mt-delete "Deleting old MidiTracker")
  209.  
  210. (set #mt-rename-help
  211. "Choose an alternate name for your old MidiTracker-drawer.")
  212.  
  213. (set #mt-delete-help
  214. "Deletes this file from disk. Be careful what you do!")
  215.  
  216. (set #mt-version-help (cat
  217. "Depending on your processor type, you may choose the "
  218. "appropriate version of MidiTracker."
  219. ))
  220.  
  221. (set #newname (cat
  222. "The old MidiTracker file/drawer\n\n"
  223. "\"%s\"\n\n"
  224. "has been renamed to\n\n"
  225. "\"%s\"."
  226. ))
  227.  
  228.  
  229. (set #mainprog (cat
  230. "Copying main program\n\n"
  231. "Your Amiga's cpu is a %s.\n\n"
  232. "Version to be installed:\n"
  233. ))
  234.  
  235. (set #ver-68000 "68000 version (runs on all Amigas)")
  236. (set #ver-68020 "68020 version (needs at least 68020 cpu)")
  237.  
  238. (set #yes "Yes")
  239. (set #no  "No" )
  240.  
  241. (set #install-docu "Do you want to install documentation?")
  242.  
  243. (set #install-mtplay (cat
  244. "Do you want to install \"mtplay\",\n\n"
  245. "an external player for MidiTracker-songs?"
  246. ))
  247.  
  248. (set #where-mtplay "Where do you want the mtplay-program?")
  249. (set #copy-mtplay "Copying mtplay to %s")
  250. (set #copy-registerform "Copying register form")
  251. (set #regform "Register form")
  252. (set #copy-controlsources "Copying controlsources file")
  253. (set #which-iconset "Which is your favourite icon-set?\n")
  254. (set #copy-catalog "Copying locale catalog")
  255.  
  256. (set #standard-icons "Standard (4 colours)")
  257. (set #magicwb-icons  "MagicWB (8 colours)")
  258. (set #newicos-icons  "NewIcons (up to 256 colours)")
  259.  
  260. (set #editor "Please enter your favourite text editor:")
  261.  
  262.  
  263. (set @askbool-help (cat
  264. "Please click \"" #yes "\" or \"" #no "\""
  265. "to answer this question."
  266. ))
  267.  
  268. (set @defaulttool-help (cat
  269. "We will now set all the textfiles'\n"
  270. "defaulttool to \"%s\"."
  271. ))
  272.  
  273. )) ; if
  274.  
  275.  
  276.  
  277.  
  278. ;=================================================================
  279. ;============== INSTALLATION STARTS
  280.  
  281. (set oldlevel (user 2))
  282. (message #intro)
  283. (user oldlevel)
  284. (welcome)
  285.  
  286.  
  287. (complete 0)
  288.  
  289.  
  290. ; Check Kickstart version. Exit if not at least 2.0
  291.  
  292. (if (< (/ (getversion) 65536) 37)
  293.   (abort #bad-kick)
  294. )
  295.  
  296.  
  297. ; Choose languages to install (documentation + registerform)
  298.  
  299. (set lang
  300.     (askoptions (prompt #which-language)
  301.         (help @askoptions-help)
  302.         (choices
  303.             "English"
  304.             "Deutsch"
  305. ;            "Dansk"
  306. ;            "Español"
  307. ;            "Français"
  308. ;            "Italiano"
  309. ;            "Nederlands"
  310. ;            "Norsk"
  311. ;            "Português"
  312. ;            "Svenska"
  313.         )
  314.         (default default_lang)
  315.     )
  316. )
  317.  
  318.  
  319. ; begin loop
  320.  
  321. (set choosing-ready 0)
  322. (until choosing-ready
  323. (
  324.  
  325.     ; Ask user for destination dir, where a separate drawer is being created
  326.  
  327.     (user 2)
  328.     (set mt-dest
  329.         (askdir
  330.             (prompt  #where-mt)
  331.             (help    @askdir-help)
  332.             (default @default-dest)
  333.         )
  334.     )
  335.     (user oldlevel)
  336.  
  337.  
  338.     ; Check if drawer already exists, trigger dependent actions
  339.  
  340.     (set destination (tackon mt-dest "MidiTracker") )
  341.     (set whattodo "update")
  342.     (if (> (exists destination) 0 )
  343.  
  344.         (
  345.         (if (= (exists destination) 1)
  346.             (set whattodo
  347.                 (select
  348.                   (askchoice
  349.                         (prompt  #mt-exists)
  350.                     (help    #mt-exists-help)
  351.                         (choices #rename-old-file
  352.                                  #delete-old-file
  353.                                  #select-new-path)
  354.                         (default 0)
  355.                     )
  356.                     "rename" "delete" "newpath"
  357.                 )
  358.             )
  359.  
  360.             ; ELSE (destination exists, is a dir)
  361.             (set whattodo
  362.                 (select
  363.                   (askchoice
  364.                         (prompt  #mt-exists)
  365.                     (help    #mt-exists-help)
  366.                         (choices #rename-old-drawer
  367.                                  #update-old-drawer
  368.                                  #select-new-path)
  369.                         (default 1)
  370.                     )
  371.                     "rename" "update" "newpath"
  372.                 )
  373.             )
  374.         )
  375.  
  376.  
  377.         (if (= whattodo "rename")
  378.             (
  379.             (set new-name (tackon mt-dest "MidiTracker-old") )
  380.             (if (rename   destination new-name
  381.                         (prompt #mt-rename new-name)
  382.                     (help   #mt-rename-help)
  383.                     )
  384.                 (
  385.                 (message (#newname destination new-name) )
  386.                 (set choosing-ready 1)
  387.                 )
  388.             )
  389.             )
  390.         )
  391.  
  392.  
  393.         (if (= whattodo "delete")
  394.             (
  395.             (delete   destination
  396.                 (prompt #mt-delete)
  397.             (help   #mt-delete-help)
  398.             )
  399.             (set choosing-ready 1)
  400.             )
  401.         )
  402.  
  403.  
  404.         (if (= whattodo "update")
  405.             (set choosing-ready 1)
  406.         )
  407.  
  408.  
  409.         )
  410.  
  411.         ; ELSE (dir does not exist)
  412.         (set choosing-ready 1)
  413.  
  414.  
  415. ;        (if (= whattodo "newpath")
  416. ;            (set choosing-ready 0)
  417. ;        )
  418.  
  419.  
  420.     )
  421.  
  422. )
  423. ) ; end of until
  424.  
  425.  
  426.  
  427.  
  428. ; Install MidiTracker main program, depending on CPU.
  429. ; In this place, the destination directory is created.
  430.  
  431. (complete 10)
  432.  
  433. (set cpu (database "cpu") )
  434. (if (OR (= cpu "68000") (= cpu "68010") )
  435.     (set version-default 0)
  436.     ; ELSE
  437.     (set version-default 1)
  438. )
  439.  
  440. (set mainprog
  441.     (select
  442.         (askchoice
  443.             (prompt  (#mainprog cpu) )
  444.           (help    @askchoice-help)
  445.             (choices #ver-68000
  446.                      #ver-68020
  447.             )
  448.             (default version-default)
  449.         )
  450.         "MidiTracker"
  451.         "MidiTracker 68020"
  452.     )
  453. )
  454.  
  455. (copyfiles
  456.     (prompt  #copy-mainprog)
  457.     (help    @copyfiles-help)
  458.     (source  (cat "/" mainprog) )
  459.     (dest    destination)
  460.   (newname "MidiTracker")
  461.     (confirm)
  462.     (infos)
  463. )
  464.  
  465.  
  466.  
  467.  
  468.  
  469. ; Copy miditracker.library
  470.  
  471. (complete 20)
  472.  
  473. ;(copylib
  474. ;    (prompt  #copy-mt-library)
  475. ;    (help    @copylib-help)
  476. ;    (source  "/miditracker.library")
  477. ;    (dest    destination)
  478. ;    (confirm)
  479. ;)
  480.  
  481.  
  482. ; Copy reqtools.library to Libs:
  483.  
  484. (complete 25)
  485.  
  486. (copylib
  487.     (prompt  #copy-rt-library)
  488.     (help    @copylib-help)
  489.     (source  "/libs/reqtools.library")
  490.     (dest       "LIBS:")
  491.     (confirm)
  492. )
  493.  
  494.  
  495.  
  496. ; Copy mtplay tool
  497.  
  498. ;(complete 30)
  499.  
  500. ;(if (askbool
  501. ;            (prompt  #install-mtplay)
  502. ;            (help    @askbool-help)
  503. ;            (default 1)
  504. ;            (choices #yes #no)
  505. ;        )
  506. ;    (
  507. ;    (set mtplaydir
  508. ;        (askdir
  509. ;            (prompt  #where-mtplay)
  510. ;            (help    @askdir-help)
  511. ;            (default "C:")
  512. ;        )
  513. ;    )
  514.  
  515. ;    (copyfiles
  516. ;        (prompt  (#copy-mtplay mtplaydir) )
  517. ;        (help    @copylib-help)
  518. ;        (source  "/mtplay")
  519. ;        (dest       mtplaydir)
  520. ;        (confirm)
  521. ;    )
  522.  
  523. ;    )
  524. ;)
  525.  
  526.  
  527.  
  528. ; Create empty drawers
  529.  
  530. (complete 40)
  531.  
  532. (if (= (exists (tackon destination "SysEx")) 0 )
  533.     (makedir (tackon destination "SysEx") (infos) )
  534. )
  535.  
  536. (if (= (exists (tackon destination "Songs")) 0 )
  537.     (makedir (tackon destination "Songs") (infos) )
  538. )
  539.  
  540.  
  541.  
  542.  
  543. ; Copy dialog textfiles and set the default-tool
  544.  
  545. (complete 50)
  546.  
  547. (set texteditor
  548.     (askstring
  549.         (prompt  #editor)
  550.       (help    @askstring-help)
  551.         (default "ed")
  552.     )
  553. )
  554.  
  555. ;(if (= (exists (tackon destination "Synth")) 0 )
  556. ;    (makedir (tackon destination "Synth") (infos) )
  557. ;)
  558.  
  559. (copyfiles
  560.     (prompt  #copy-synths)
  561.     (help    @copylib-help)
  562.     (source  "/Synth")
  563.     (dest       (tackon destination "Synth"))
  564.   (all)
  565.     (confirm)
  566. )
  567.  
  568. (foreach ((tackon destination "Synth")) ("~(#?.info)")
  569. (
  570. (tooltype
  571.     (prompt  #defaulttool)
  572.     (help    (@defaulttool-help texteditor))
  573.     (dest       (tackon (tackon destination "Synth") @each-name))
  574.     (setdefaulttool texteditor)
  575. )
  576. ))
  577.  
  578.  
  579.  
  580.  
  581. (complete 60)
  582.  
  583. ; Copy MidiTracker.guide if AmigaGuide® is installed.
  584.  
  585. (if (> (getversion "Libs:amigaguide.library") 0)
  586.  
  587.     (if (askbool
  588.                 (prompt  #install-docu)
  589.                 (help    @askbool-help)
  590.                 (default 1)
  591.                 (choices #yes #no)
  592.             )
  593.  
  594.         (
  595.         (makedir  (tackon destination "Help")
  596.             (prompt #makedir (tackon destination "Help") )
  597.             (help   @makedir-help)
  598.             (infos)
  599.         )
  600.  
  601.         (set n 0)
  602.         (while (set language (select n
  603.                     "english"
  604.                     "deutsch"
  605.                     "dansk"
  606.                     "español"
  607.                     "français"
  608.                     "italiano"
  609.                     "nederlands"
  610.                     "norsk"
  611.                     "português"
  612.                     "svenska"
  613.                     ""))
  614.             (
  615.             (if (IN lang n)
  616.                 (
  617.  
  618.                 (set docudest (tackon destination ("Help/%s" language) ) )
  619.                 (makedir  docudest
  620.                     (prompt #makedir docudest)
  621.                     (help   @makedir-help)
  622.                     (infos)
  623.                 )
  624.  
  625.                 (copyfiles
  626.                     (prompt   #copy-docu)
  627.                     (help     @copyfiles-help)
  628.                     (source   (tackon ("/Help/%s" language) "MidiTracker.guide") )
  629.                     (dest     docudest)
  630.                     (optional nofail)
  631.                     (infos)
  632.                     (confirm)
  633.                 )
  634.  
  635.                 ; Modify tooltypes of guide if this is needed
  636.  
  637.                 (if (< (/ (getversion) 65536) 39)
  638.                     (tooltype
  639.                         (dest (tackon docudest "MidiTracker.guide") )
  640.                         (setdefaulttool "AmigaGuide")
  641.                   )
  642.                 )
  643.  
  644.                 ) ; if IN
  645.             )
  646.  
  647.             (set n (+ n 1))
  648.             ) ; while
  649.         )
  650.         )
  651.  
  652.     )
  653. )
  654.  
  655.  
  656.  
  657. (complete 70)
  658.  
  659. ; Copy the controlsources file
  660.  
  661. (copyfiles
  662.     (prompt  #copy-controlsources)
  663.     (help    @copyfiles-help)
  664.     (source  "/Controlsources" )
  665.     (dest    destination)
  666.     (confirm)
  667.     (infos)
  668. )
  669.  
  670. (tooltype
  671.     (prompt  #defaulttool)
  672.     (help    (@defaulttool-help texteditor))
  673.     (dest    (tackon destination "Controlsources"))
  674.     (setdefaulttool texteditor)
  675. )
  676.  
  677.  
  678.  
  679. ; Prompt & Copy the desired icon set
  680.  
  681. (complete 80)
  682.  
  683. (set iconset
  684.     (select
  685.         (askchoice
  686.             (prompt  #which-iconset)
  687.           (help    @askchoice-help)
  688.             (choices #standard-icons
  689.                      #magicwb-icons
  690.                      #newicos-icons
  691.             )
  692.             (default 0)
  693.         )
  694.         "Standard-Icons"
  695.         "MagicWB-Icons"
  696.         "NewIcons-Icons"
  697.     )
  698. )
  699.  
  700. ; Copy the main program's icon
  701.  
  702. (copyfiles
  703.     (prompt  #copy-iconset)
  704.     (help    @copyfiles-help)
  705.     (source  (tackon (cat "/" iconset) "MidiTracker.info") )
  706.     (dest    destination)
  707. )
  708.  
  709.  
  710.  
  711. ; Copy icons: Song, Iconify. (to come: Project)
  712.  
  713. (makedir (tackon destination "Icons")
  714.     (prompt #makedir (tackon destination "Icons") )
  715.     (help   @makedir-help)
  716.     (infos)
  717. )
  718. (copyfiles
  719.     (prompt  #copy-iconset)
  720.     (help    @copyfiles-help)
  721.     (source  (cat "/" iconset) )
  722.     (dest    (tackon destination "Icons") )
  723.     (pattern "~(MidiTracker.info)")
  724. )
  725.  
  726.  
  727.  
  728.  
  729.  
  730. ; Copy order-form
  731.  
  732. (complete 90)
  733.  
  734. (copyfiles
  735.     (prompt   #copy-registerform)
  736.     (help     @copyfiles-help)
  737.     (source   ("/Register/%s" @language) )
  738.     (dest     destination)
  739.     (newname    #regform)
  740.     (optional nofail)
  741.     (infos)
  742. )
  743.  
  744. (tooltype
  745.     (prompt  #defaulttool)
  746.     (help    (@defaulttool-help texteditor))
  747.     (dest    (tackon destination #regform))
  748.     (setdefaulttool texteditor)
  749. )
  750.  
  751.  
  752.  
  753.  
  754. ; Copy catalogs
  755.  
  756. (complete 95)
  757.  
  758. (set n 0)
  759. (while (set language (select n
  760.             "english"
  761.             "deutsch"
  762.             "dansk"
  763.             "español"
  764.             "français"
  765.             "italiano"
  766.             "nederlands"
  767.             "norsk"
  768.             "português"
  769.             "svenska"
  770.             ""))
  771.     (
  772.     (if (IN lang n)
  773.         (if (<> 0 n) ; if english, skip that bit (there is no catalog)
  774.             (copyfiles
  775.                 (prompt   #copy-catalog)
  776.                 (help     @copyfiles-help)
  777.                 (source   (tackon ("/Catalogs/%s" language) "MidiTracker.catalog") )
  778.                 (dest     ("LOCALE:Catalogs/%s" language) )
  779.                 (optional nofail)
  780.             )
  781.         )
  782.     )
  783.  
  784.     (set n (+ n 1))
  785.     ) ; while
  786. )
  787.  
  788.  
  789.  
  790. (complete 100)
  791.  
  792.